www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/Manage_modnewsall.asp
<!--#include file="conn.asp"--> <!--#include file="check.asp" --> <% set rspaixu=server.createobject("adodb.recordset") paixusql="select * from Tsm_newsall order by paixu desc" rspaixu.open paixusql,conn,1,1 if not rspaixu.eof then thelastpaixu=rspaixu("paixu")+1 else thelastpaixu=1 end if rspaixu.close set rspaixu=nothing select case request("action") case "add" call add() case "addsave" call addsave() case "Modify" call Modify() case "Modifysave" call Modifysave() end select sub add() %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title></title> <link href="css.css" rel="stylesheet" type="text/css"> <% dim rs dim sql dim count set rs=server.createobject("adodb.recordset") sql = "select * from Tsm_newsallsc" rs.open sql,conn,1,1 %> <!--#include file="classjs.asp"--> </head> <body> <!--#include file="top.htm"--> <br> <table width="90%" height="25" border="0" align="center" cellpadding="0" cellspacing="0"> <form name="myform" method="post" action="?action=addsave"><tr> <td height="25" align="center" valign="middle" background="img/menu_manage.gif"><font color="#FFFFFF"><b>发 布 信 息</b></font></td> </tr> <tr> <td> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC"> <tr align="center" valign="middle" bgcolor="#FFFFFF"> <td height="25" colspan="2"> </td> </tr> <tr> <td width="15%" height="25" align="center" valign="middle" bgcolor="#F6F6F6">所属栏目:</td> <td width="85%" bgcolor="#FFFFFF"> <% sql = "select * from tsm_newsallbc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "请先添加栏目。" else %> <select name="Aid" onChange="changelocation(document.myform.Aid.options[document.myform.Aid.selectedIndex].value)" size="1"> <option selected value="<%=rs("aid")%>"><%=trim(rs("aname"))%></option> <% dim selclassid selclassid=rs("aid") rs.movenext do while not rs.eof %> <option value="<%=trim(rs("aid"))%>"><%=trim(rs("aname"))%></option> <% rs.movenext loop end if rs.close %> </select> <select name="Bid"> <option value="" selected>不指定小类</option> <% sql="select * from tsm_newsallsc where aid=" & selclassid & "" rs.open sql,conn,1,1 if not(rs.eof and rs.bof) then %> <option value="<%=rs("bid")%>"><%=rs("bname")%></option> <% rs.movenext do while not rs.eof%> <option value="<%=rs("bid")%>"><%=rs("bname")%></option> <% rs.movenext loop end if rs.close %> </select> </td> </tr> <tr> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">信息标题<%if en_switch=0 then%><%else%>(中)<%end if%>:</td> <td width="85%" bgcolor="#F6F6F6"><input name="title" type="text" id="title" size="50" maxlength="50"> <font color="#FF0000"> *</font> </td> </tr> <tr<%if en_switch=0 then%><%=hiddentable(0)%><%end if%>> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">信息标题(英):</td> <td width="85%" bgcolor="#F6F6F6"><input name="titlee" type="text" id="titlee" size="50" maxlength="50"> <font color="#FF0000"> *</font> </td> </tr> <tr<%=hiddentable(0)%>> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">信息副标题<%if en_switch=1 then%><%else%>(中)<%end if%>:</td> <td width="85%" bgcolor="#F6F6F6"><input name="titlef" type="text" id="titlef" size="50" maxlength="50"> <font color="#FF0000"> *</font> </td> </tr> <tr<%=hiddentable(0)%>> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">信息副标题(英):</td> <td width="85%" bgcolor="#F6F6F6"><input name="titlefe" type="text" id="titlefe" size="50" maxlength="50"> <font color="#FF0000"> *</font> </td> </tr> <tr<%=hiddentable(0)%>> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">字体颜色:</td> <td width="85%" bgcolor="#F6F6F6"> <select name="titlecolor" size="1" style="color: rgb(0,0,128)"> <OPTION selected style="COLOR: #000000" value="">默认颜色</OPTION> <OPTION style="COLOR: #000000" value="#000000">黑色沉静</OPTION> <option style="COLOR: #ff0000" value="#FF0000">红色热情</option> <option style="COLOR: #0000ff" value="#0000FF">蓝色开朗</option> <option style="COLOR: #ff00ff" value="#FF00FF">桃色浪漫</option> <option style="COLOR: #009900" value="#009900">绿色青春</option> <option style="COLOR: #009999" value="#009999">青色清爽</option> <option style="COLOR: #990099" value="#990099">紫色拘谨</option> <option style="COLOR: #990000" value="#990000">暗夜兴奋</option> <option style="COLOR: #000099" value="#000099">深蓝忧郁</option> <option style="COLOR: #999900" value="#999900">卡其制服</option> <option style="COLOR: #ff9900" value="#FF9900">镏金岁月</option> <option style="COLOR: #0099ff" value="#0099FF">湖波荡漾</option> <option style="COLOR: #9900ff" value="#9900FF">发亮蓝紫</option> <option style="COLOR: #ff0099" value="#FF0099">爱的暗示</option> <option style="COLOR: #006600" value="#006600">墨绿深沉</option> <option style="COLOR: #333333" value="#333333">灰色轨迹</option> <option style="COLOR: #999999" value="#999999">伦敦灰雾</option> </select> 字体: <SELECT name="titleTypeface"> <option selected value="">字体</option> <option style="font-family:宋体" value="宋体">宋体</option> <option style="font-family:黑体" value="黑体">黑体</option> <option style="font-family:楷体_GB2312" value="楷体_GB2312">楷体</option> <option style="font-family:仿宋_GB2312" value="仿宋_GB2312">仿宋</option> <option style="font-family:隶书" value="隶书">隶书</option> <option style="font-family:幼圆" value="幼圆">幼圆</option> <option style="font-family:Arial" value="Arial">Arial</option> <option style="font-family:Arial Black" value="Arial Black">Arial Black</option> <option style="font-family:Arial Narrow" value="Arial Narrow">Arial Narrow</option> <option style="font-family:Brush Script MT" value="Brush Script MT">Brush Script MT</option> <option style="font-family:Century Gothic" value="Century Gothic">Century Gothic</option> <option style="font-family:Comic Sans MS" value="Comic Sans MS">Comic Sans MS</option> <option style="font-family:Courier" value="Courier">Courier</option> <option style="font-family:Courier New" value="Courier New">Courier New</option> <option style="font-family:MS Sans Serif" value="MS Sans Serif">MS Sans Serif</option> <option style="font-family:Script" value="Script">Script</option> <option style="font-family:System" value="System">System</option> <option style="font-family:Times New Roman" value="Times New Roman">Times New Roman</option> <option style="font-family:Verdana" value="Verdana">Verdana</option> <option style="font-family:Wide Latin" value="Wide Latin">Wide Latin</option> <option style="font-family:Wingdings" value="Wingdings">Wingdings</option> </SELECT> 字体大小: <select name="titlesize"> <OPTION selected value="">字号</OPTION> <OPTION style="font-size:9px" value="9px">9px</OPTION> <OPTION style="font-size:12px" value="12px">12px</OPTION> <OPTION style="font-size:14px" value="14px">14px</OPTION> <OPTION style="font-size:18px" value="18px">18px</OPTION> <OPTION style="font-size:24px" value="24px">24px</OPTION> </select> </td> </tr> <tr> <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">状 态:</td> <td bgcolor="#F6F6F6"><select name="xianshi"> <option value="1" selected>显示</option> <option value="0">隐藏</option> </select> <font color="#FF0000"> *</font> </td> </tr> <tr> <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">推荐:</td> <td bgcolor="#F6F6F6"><input type="radio" name="tj" value="1"> 是 <input name="tj" type="radio" value="0" checked> 否</td> </tr> <tr> <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">置顶:</td> <td bgcolor="#F6F6F6"><input type="radio" name="top1" value="1"> 是 <input name="top1" type="radio" value="0" checked> 否</td> </tr> <tr> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">信息排序:</td> <td width="85%" bgcolor="#F6F6F6"><input name="paixu" type="text" id="paixu" size="20" maxlength="20" value="<%=thelastpaixu%>"> <font color="#FF0000"> *</font></td> </tr> <tr> <td height="25" align="center" valign="middle" bgcolor="#F6F6F6">发布时间:</td> <td bgcolor="#FFFFFF"><input name="Time" type="text" id="Time" value="<%=now()%>" size="20" maxlength="50"> 发 布 者: <input name="Writer" type="text" id="Writer" value="<%=session("admin")%>" size="20" maxlength="50"> 来源: <input name="Origin" type="text" id="Origin" size="20" maxlength="50" value="本站"> </td> </tr> <tr> <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">上传图片:</td> <td bgcolor="#FFFFFF"><input name="Propic" type="text" id="Propic" size="40"> 推荐尺寸:200*200<br><IFRAME src="Upimage.asp" name=head width=370 marginWidth=0 height=21 marginHeight=0 scrolling=no frameBorder=0 class="red" framespacing=0></IFRAME></td> </tr> <tr> <td height="350" align="center" valign="middle" bgcolor="#F6F6F6">详细内容<%if en_switch=0 then%><%else%>(中)<%end if%>: </td> <td height="355" valign="top" bgcolor="#FFFFFF"> <textarea name="content" style="display:none"><%=Server.HTMLEncode(html)%></textarea> <iframe ID="eWebEditor1" src="editor/ewebeditor.asp?id=content&style=s_office" frameborder="0" scrolling="no" width="600" HEIGHT="355"></iframe> </td> </tr> <tr<%if en_switch=0 then%><%=hiddentable(0)%><%end if%>> <td height="350" align="center" valign="middle" bgcolor="#F6F6F6">详细内容(英): </td> <td height="355" valign="top" bgcolor="#FFFFFF"> <textarea name="contente" style="display:none"><%=Server.HTMLEncode(html)%></textarea> <iframe ID="eWebEditor2" src="editor/ewebeditor.asp?id=contente&style=s_office" frameborder="0" scrolling="no" width="600" HEIGHT="355"></iframe> </td> </tr> </table> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td height="35"a align="center"> <input type="submit" name="Submit" value="发布信息"> <input type="reset" name="Submit" value=" 清 除 "> <input type="button" name="Submit2" value=" 返 回 " onClick="history.go(-1)"> </td> </tr> </table> </td> </tr> </form> </table> </body> </html> <% end sub sub addsave() if trim(request("title"))="" or isEmpty(request("title"))=true then call ShowAlert("信息标题不可为空,请输入信息标题!","") elseif trim(request("content"))="" or isEmpty(request("content"))=true Then call ShowAlert("信息内容不可为空,请输入信息内容!","") else set rscheck=server.createobject("adodb.recordset") rschecksql="select * from Tsm_newsall where title='"&request("title")&"' and titlee='"&request("titlee")&"' and paixu="&request("paixu")&"" rscheck.open rschecksql,conn,1,1 if rscheck.eof then set rs=server.createobject("adodb.recordset") sql="select * from Tsm_newsall" rs.open sql,conn,1,3 rs.AddNew if request("aid")<>"" then rs("Aid") = request("Aid") else rs("aid")=0 end if if request("Bid")<>"" then rs("Bid") = request("Bid") else rs("Bid")=0 end if if request("paixu")<>"" then rs("paixu") = request("paixu") else rs("paixu") = 0 end if rs("xianshi") = request("xianshi") rs("title") = request("title") rs("titlee") = request("titlee") rs("Time1") = request("Time") rs("writer") = request("writer") rs("content") = request("content") rs("contente") = request("contente") rs("propic") = request("propic") rs("titlecolor") = request("titlecolor") rs("titlesize") = request("titlesize") rs("titleTypeface") = request("titleTypeface") rs("titlef") = request("titlef") rs("titlefe") = request("titlefe") rs("Origin") = request("Origin") rs("tj") = request("tj") rs("top1") = request("top1") rs.Update rs.Close set rs=nothing end if rscheck.close set rscheck=nothing conn.close set conn=nothing call ShowAlert("添加成功!","Manage_adminnewsall.asp") end if end sub %> <% sub Modify() %> <% id=request("id") set RsEdit=server.createobject("adodb.recordset") sqlEdit = "select * from Tsm_newsall where id="& id RsEdit.open sqlEdit,conn,1,1 %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title></title> <% dim rs dim sql dim count set rs=server.createobject("adodb.recordset") sql = "select * from Tsm_newsallsc" rs.open sql,conn,1,1 %> <!--#include file="classjs.asp"--> <link href="css.css" rel="stylesheet" type="text/css"> </head> <body> <!--#include file="top.htm"--><br> <table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC"> <form name="myform" method="post" action="?action=Modifysave"> <tr align="center" valign="middle"> <td height="25" colspan="2" background="img/menu_manage.gif"><font color="#FFFFFF"><b>修 改 信 息</b></font></td> </tr> <tr> <td width="15%" height="25" align="center" valign="middle" bgcolor="#F6F6F6">所属栏目:</td> <td width="85%" bgcolor="#FFFFFF"> <% sql = "select * from tsm_newsallbc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "请先添加栏目。" else %> <select name="Aid" onChange="changelocation(document.myform.Aid.options[document.myform.Aid.selectedIndex].value)" size="1"> <% do while not rs.eof %> <option value="<%=rs("aid")%>"<%=selected(rs("aid"),RsEdit("aid"))%>><%=rs("aname")%></option> <% rs.movenext loop end if rs.close %> </select> <select name="Bid"> <option value="" selected>不指定小类</option> <% sql="select * from tsm_newsallsc where aid=" & RsEdit("aid") & "" rs.open sql,conn,1,1 %> <% do while not rs.eof%> <option value="<%=rs("bid")%>"<%=selected(rs("bid"),RsEdit("bid"))%>><%=rs("bname")%></option> <% rs.movenext loop rs.close %> </select> </td> </tr> <tr> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">信息标题<%if en_switch=0 then%><%else%>(中)<%end if%>:</td> <td width="85%" bgcolor="#F6F6F6"><input name="title" type="text" id="title" size="50" maxlength="50" value="<%=RsEdit("title")%>"> <font color="#FF0000"> *</font> </td> </tr> <tr<%if en_switch=0 then%><%=hiddentable(0)%><%end if%>> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">信息标题(英):</td> <td width="85%" bgcolor="#F6F6F6"><input name="titlee" type="text" id="titlee" size="50" maxlength="50" value="<%=RsEdit("titlee")%>"> <font color="#FF0000"> *</font> </td> </tr> <tr<%=hiddentable(0)%>> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">信息副标题<%if en_switch=0 then%><%else%>(中)<%end if%>:</td> <td width="85%" bgcolor="#F6F6F6"><input name="titlef" type="text" id="titlef" size="50" maxlength="50" value="<%=RsEdit("titlef")%>"> <font color="#FF0000"> *</font> </td> </tr> <tr<%=hiddentable(0)%>> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">信息副标题(英):</td> <td width="85%" bgcolor="#F6F6F6"><input name="titlefe" type="text" id="titlefe" size="50" maxlength="50" value="<%=RsEdit("titlefe")%>"> <font color="#FF0000"> *</font> </td> </tr> <tr<%=hiddentable(0)%>> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">字体颜色:</td> <td width="85%" bgcolor="#F6F6F6"> <select name="titlecolor" size="1" style="color: rgb(0,0,128)"> <OPTION selected style="COLOR: #000000" value="<%=RsEdit("titlecolor")%>">当前颜色(<%=RsEdit("titlecolor")%>)</OPTION> <OPTION style="COLOR: #000000" value="#000000">黑色沉静</OPTION> <option style="COLOR: #ff0000" value='#FF0000'>红色热情</option> <option style="COLOR: #0000ff" value='#0000FF'>蓝色开朗</option> <option style="COLOR: #ff00ff" value='#FF00FF'>桃色浪漫</option> <option style="COLOR: #009900" value='#009900'>绿色青春</option> <option style="COLOR: #009999" value='#009999'>青色清爽</option> <option style="COLOR: #990099" value='#990099'>紫色拘谨</option> <option style="COLOR: #990000" value='#990000'>暗夜兴奋</option> <option style="COLOR: #000099" value='#000099'>深蓝忧郁</option> <option style="COLOR: #999900" value='#999900'>卡其制服</option> <option style="COLOR: #ff9900" value='#FF9900'>镏金岁月</option> <option style="COLOR: #0099ff" value='#0099FF'>湖波荡漾</option> <option style="COLOR: #9900ff" value='#9900FF'>发亮蓝紫</option> <option style="COLOR: #ff0099" value='#FF0099'>爱的暗示</option> <option style="COLOR: #006600" value='#006600'>墨绿深沉</option> <option style="COLOR: #333333" value='#333333'>灰色轨迹</option> <option style="COLOR: #999999" value='#999999'>伦敦灰雾</option> </select> 字体: <SELECT name="titleTypeface"> <option style="font-family:<%if isnull(RsEdit("titleTypeface"))=true then%>宋体<%else%><%=RsEdit("titleTypeface")%><%end if%>" selected value="<%=RsEdit("titleTypeface")%>">当前字体(<%=RsEdit("titleTypeface")%>)</option> <option style="font-family:宋体" value="宋体">宋体</option> <option style="font-family:黑体" value="黑体">黑体</option> <option style="font-family:楷体_GB2312" value="楷体_GB2312">楷体</option> <option style="font-family:仿宋_GB2312" value="仿宋_GB2312">仿宋</option> <option style="font-family:隶书" value="隶书">隶书</option> <option style="font-family:幼圆" value="幼圆">幼圆</option> <option style="font-family:Arial" value="Arial">Arial</option> <option style="font-family:Arial Black" value="Arial Black">Arial Black</option> <option style="font-family:Arial Narrow" value="Arial Narrow">Arial Narrow</option> <option style="font-family:Brush Script MT" value="Brush Script MT">Brush Script MT</option> <option style="font-family:Century Gothic" value="Century Gothic">Century Gothic</option> <option style="font-family:Comic Sans MS" value="Comic Sans MS">Comic Sans MS</option> <option style="font-family:Courier" value="Courier">Courier</option> <option style="font-family:Courier New" value="Courier New">Courier New</option> <option style="font-family:MS Sans Serif" value="MS Sans Serif">MS Sans Serif</option> <option style="font-family:Script" value="Script">Script</option> <option style="font-family:System" value="System">System</option> <option style="font-family:Times New Roman" value="Times New Roman">Times New Roman</option> <option style="font-family:Verdana" value="Verdana">Verdana</option> <option style="font-family:Wide Latin" value="Wide Latin">Wide Latin</option> <option style="font-family:Wingdings" value="Wingdings">Wingdings</option> </SELECT> 字体大小: <select name="titlesize"> <OPTION style="font-size:<%if isnull(RsEdit("titlesize"))=true then%>9px<%else%><%=RsEdit("titlesize")%><%end if%>" selected value="<%=RsEdit("titlesize")%>">当前字号(<%=RsEdit("titlesize")%>)</OPTION> <OPTION style="font-size:9px" value="9px">9px</OPTION> <OPTION style="font-size:12px" value="12px">12px</OPTION> <OPTION style="font-size:14px" value="14px">14px</OPTION> <OPTION style="font-size:18px" value="18px">18px</OPTION> <OPTION style="font-size:24px" value="24px">24px</OPTION> </select> </td> </tr> <tr> <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">状 态:</td> <td bgcolor="#F6F6F6"><select name="xianshi"> <option value="1"<%if RsEdit("xianshi")=1 then%>selected<%end if%>>显示</option> <option value="0"<%if RsEdit("xianshi")=0 then%>selected<%end if%>>隐藏</option> </select> <font color="#FF0000"> *</font> </td> </tr> <tr> <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">推荐:</td> <td bgcolor="#F6F6F6"><input type="radio" name="tj" value="1" <%if RsEdit("tj")=1 then%> checked="checked"<%end if%>> 是 <input name="tj" type="radio" value="0" <%if RsEdit("tj")=0 then%> checked="checked"<%end if%>> 否</td> </tr> <tr> <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">置顶:</td> <td bgcolor="#F6F6F6"><input type="radio" name="top1" value="1" <%if RsEdit("top1")=1 then%> checked="checked"<%end if%>> 是 <input name="top1" type="radio" value="0" <%if RsEdit("top1")=0 then%> checked="checked"<%end if%>> 否</td> </tr> <tr> <td width="15%" height="25" align="center" valign="middle" bgcolor="#FFFFFF">信息排序:</td> <td width="85%" bgcolor="#F6F6F6"><input name="paixu" type="text" id="paixu" size="20" maxlength="20" value="<%=RsEdit("paixu")%>"> <font color="#FF0000"> *</font></td> </tr> <tr> <td height="25" align="center" valign="middle" bgcolor="#F6F6F6">发布时间:</td> <td bgcolor="#FFFFFF"><input name="Time" type="text" id="Time" value="<%=RsEdit("Time1")%>" size="20" maxlength="50"> 发 布 者: <input name="Writer" type="text" id="Writer" value="<%=RsEdit("Writer")%>" size="20" maxlength="50"> 来源: <input name="Origin" type="text" id="Origin" size="20" maxlength="50" value="<%=RsEdit("Origin")%>"> </td> </tr> <tr> <td height="25" align="center" valign="middle" bgcolor="#FFFFFF">上传图片:</td> <td bgcolor="#FFFFFF"><input name="Propic" type="text" id="Propic" size="40" value="<%=RsEdit("Propic")%>"> 推荐尺寸:200*200<br><IFRAME src="Upimage.asp" name=head width=370 marginWidth=0 height=21 marginHeight=0 scrolling=no frameBorder=0 class="red" framespacing=0></IFRAME></td> </tr> <tr> <td height="350" align="center" valign="middle" bgcolor="#F6F6F6">详细内容<%if en_switch=0 then%><%else%>(中)<%end if%>: </td> <td height="355" valign="top" bgcolor="#FFFFFF"> <textarea name="content" style="display:none"><%=RsEdit("content")%></textarea> <iframe ID="eWebEditor1" src="editor/ewebeditor.asp?id=content&style=s_office" frameborder="0" scrolling="no" width="600" HEIGHT="355"></iframe> </td> </tr> <tr<%if en_switch=0 then%><%=hiddentable(0)%><%end if%>> <td height="350" align="center" valign="middle" bgcolor="#F6F6F6">详细内容(英): </td> <td height="355" valign="top" bgcolor="#FFFFFF"> <textarea name="contente" style="display:none"><%=RsEdit("contente")%></textarea> <iframe ID="eWebEditor2" src="editor/ewebeditor.asp?id=contente&style=s_office" frameborder="0" scrolling="no" width="600" HEIGHT="355"></iframe> </td> </tr> <tr bgcolor="#FFFFFF"> <td colspan="2" align="center" valign="middle"><table width="100%" height="35" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td height="35" align="center" valign="middle"> <input name="id" type="hidden" id="id" value="<%=rsEdit("id")%>"> <input type="submit" name="Submit" value="修改信息"> <input type="reset" name="Submit" value=" 清 除 "> <input type="button" name="Submit2" value=" 返 回 " onClick="history.go(-1)"> </td> </tr> </table></td> </tr></form> </table> </body> </html> <% end sub sub Modifysave() if request("title")="" or isEmpty(request("title"))=true then call ShowAlert("信息标题不可为空,请输入信息标题!","") ElseIf request("content")="" or isEmpty(request("content"))=true Then call ShowAlert("信息内容不可为空,请输入信息内容!","") else set rs=server.createobject("adodb.recordset") sql1="select * from Tsm_newsall where id="& request("id") rs.open sql1,conn,1,3 if request("Aid")<>"" then rs("Aid") = request("Aid") else rs("Aid") = 0 end if if request("Bid")<>"" then rs("Bid") = request("Bid") else rs("Bid") = 0 end if if request("paixu")<>"" then rs("paixu") = request("paixu") else rs("paixu") = 0 end if rs("xianshi") = request("xianshi") rs("title") = request("title") rs("titlee") = request("titlee") rs("Time1") = request("Time") rs("writer") = request("writer") rs("content") = request("content") rs("contente") = request("contente") rs("propic") = request("propic") rs("titlecolor") = request("titlecolor") rs("titlesize") = request("titlesize") rs("titleTypeface") = request("titleTypeface") rs("titlef") = request("titlef") rs("titlefe") = request("titlefe") rs("Origin") = request("Origin") rs("tj") = request("tj") rs("top1") = request("top1") rs.Update rs.Close set rs=nothing conn.close set conn=nothing call ShowAlert("信息修改成功!","Manage_adminnewsall.asp") end if end sub %>